home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 126-150 / disk_143 / rim / rimsrcami.arc / LXCARD.BLK < prev    next >
Text File  |  1988-01-05  |  959b  |  23 lines
  1. C
  2. C     THIS COMMON BLOCK CONTAINS INFORMATION NEEDED BY LXLREC FAMILY
  3. C     OF ROUTINES.
  4. C
  5. C     NEWN.....NUMBER OF ITEMS IN CURRENT RECORD
  6. C     OLDN.....NUMBER OF ITEMS IN PREVIOUS RECORD
  7. C     NEWREC...CURRENT TEXT ITEM CHARACTER IMAGE PACKED TOGETHER
  8. C     OLDREC...SAME AS NEWREC BUT FOR PREVIOUS RECORD.
  9. C     TYPE.....TYPE OF EACH ITEM 4HTEXT,3HINT,4HREAL
  10. C     INTVAL...VALUE IF INTEGER TYPE, START POINTER IN NEWREC IF TEXT.
  11. C     RVAL.....VALUE IF REAL TYPE, NUM. CHARS. IF TEXT TYPE.
  12. C     NEXT.....NEXT AVAILABLE POITION IN NEWREC
  13. C     NIN......INPUT FILE NAME
  14. C     NOUT.....OUTPUT FILE NAME
  15. C     ECHO.....LOGICAL .TRUE. IFF LXLREC SHOULD ECHO INPUT.
  16. C     LXEOF....LOGICAL .TRUE. IFF EOF READ ON LAST READ
  17. C
  18.       COMMON /LXCARD/NEWN,OLDN,NEWREC(290),OLDREC(290),
  19.      X               TYPE(100),INTVAL(100),RVAL(100),NEXT,
  20.      X               NIN,NOUT,ECHO,LXEOF
  21.       INTEGER OLDN,OLDREC,TYPE
  22.       LOGICAL ECHO,LXEOF
  23.